home *** CD-ROM | disk | FTP | other *** search
/ Univers Interactif 3 / INTERACTIF.BIN / mac / Planete.net / Internet Confirmés_Vrac / JFIFBrowser.sea / JFIF Browser / background_2583.xml next >
Extensible Markup Language  |  1993-07-02  |  3KB  |  77 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>2583</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_4588.pbm</bitmap>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_3325.css" />
  11.     <part>
  12.         <id>1</id>
  13.         <type>button</type>
  14.         <visible> <true /> </visible>
  15.         <reserved5> 0 </reserved5>
  16.         <reserved4> 0 </reserved4>
  17.         <reserved3> 0 </reserved3>
  18.         <reserved2> 0 </reserved2>
  19.         <reserved1> 0 </reserved1>
  20.         <enabled> <true /> </enabled>
  21.         <rect>
  22.             <left>3</left>
  23.             <top>447</top>
  24.             <right>38</right>
  25.             <bottom>477</bottom>
  26.         </rect>
  27.         <style>shadow</style>
  28.         <showName> <false /> </showName>
  29.         <highlight> <false /> </highlight>
  30.         <autoHighlight> <true /> </autoHighlight>
  31.         <sharedHighlight> <true /> </sharedHighlight>
  32.         <family>0</family>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>1011</icon>
  35.         <textAlign>center</textAlign>
  36.         <font>Chicago</font>
  37.         <textSize>12</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <name>Home</name>
  40.         <script>on mouseUpgo to stack "Home"end mouseUpon mouseWithinballoon "Click on this button to go to the Home stack."end mouseWithin</script>
  41.     </part>
  42.     <part>
  43.         <id>3</id>
  44.         <type>field</type>
  45.         <visible> <true /> </visible>
  46.         <dontWrap> <false /> </dontWrap>
  47.         <dontSearch> <false /> </dontSearch>
  48.         <sharedText> <false /> </sharedText>
  49.         <fixedLineHeight> <true /> </fixedLineHeight>
  50.         <autoTab> <false /> </autoTab>
  51.         <lockText> <true /> </lockText>
  52.         <rect>
  53.             <left>44</left>
  54.             <top>447</top>
  55.             <right>591</right>
  56.             <bottom>468</bottom>
  57.         </rect>
  58.         <style>rectangle</style>
  59.         <autoSelect> <false /> </autoSelect>
  60.         <showLines> <false /> </showLines>
  61.         <wideMargins> <false /> </wideMargins>
  62.         <multipleLines> <false /> </multipleLines>
  63.         <reservedFamily> 0 </reservedFamily>
  64.         <titleWidth>0</titleWidth>
  65.         <icon>0</icon>
  66.         <textAlign>left</textAlign>
  67.         <font>Geneva</font>
  68.         <textSize>10</textSize>
  69.         <textStyle>plain</textStyle>
  70.         <textHeight>13</textHeight>
  71.         <name>status_line</name>
  72.         <script>on mouseWithinballoon "This field displays HyperWais progress messages. "end mouseWithin</script>
  73.     </part>
  74.     <name>background</name>
  75.     <script>-- this handler contains the functions needed to manage the-- sources and a function to make a nice file name out-- of a document headline---------------------------------------------------------function niceFileName fileName-- this function makes a nice file name out of a document-- headline-- first grab the first word of the file name-- put the first word of fileName into fileName-- then reduce it to less than 25 charaters, I know this-- is less than the 31 characters that the file system-- can support, but we need to have room to append-- stuff to the file name in order to do conversionsif the length of fileName > 25 thenput char 1 to 25 of fileName into fileNameend if-- strip the last item, after the final "."if fileName contains "." thenset the itemDelimiter to "."put empty into the last item of fileNameput the length of fileName - 1 into fileNameLengthput char 1 to fileNameLength of fileName into fileNameend ifreturn fileNameend niceFileName---------------------------------------------------------</script>
  76. </background>
  77.